Namespace Comm
    <ObfuscationAttribute(Exclude:=True, ApplyToMembers:=True)> _
    Public Class ConsultStream
        Inherits BikiStream

        Private m_buffer(100) As Byte
        Private m_count As UInt32 = 0

        Sub New(ByVal CommunicationMutex As Threading.Mutex, ByRef CommHandle As Comm.UsbCommunicationHandle)
            MyBase.New(CommunicationMutex, CommHandle)

            AddHandler CommHandle.ConsultDataEventHandler, AddressOf Me.ConsultData_EventHandler
        End Sub

        Public Overrides ReadOnly Property CanRead() As Boolean
            Get
                Return True
            End Get
        End Property

        Public Overrides ReadOnly Property CanSeek() As Boolean
            Get
                Return False
            End Get
        End Property

        Public Overrides ReadOnly Property CanStream() As Boolean
            Get
                Return True
            End Get
        End Property

        Public Overrides ReadOnly Property CanWrite() As Boolean
            Get
                Return False
            End Get
        End Property

        Public Overrides Sub Flush()

        End Sub

        Public Overrides ReadOnly Property Length() As Long
            Get
                Return m_buffer.Length
            End Get
        End Property

        Public Overrides Property Position() As Long
            Get

            End Get
            Set(ByVal value As Long)

            End Set
        End Property

        Public Overrides Function Read(ByVal buffer() As Byte, ByVal offset As Integer, ByVal count As Integer) As Integer

        End Function

        Public Overrides Function Seek(ByVal offset As Long, ByVal origin As System.IO.SeekOrigin) As Long

        End Function

        Public Overrides Sub SetLength(ByVal value As Long)

        End Sub

        Public Overrides Sub Write(ByVal buffer() As Byte, ByVal offset As Integer, ByVal count As Integer)

        End Sub

        Private Sub ConsultData_EventHandler(ByVal sender As Object, ByVal e As UsbDataEventArguments)
        End Sub

        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            MyBase.Dispose(disposing)
        End Sub

    End Class
End Namespace

